perm filename FASLAP.LAP[MAC,LSP]1 blob
sn#211951 filedate 1976-04-22 generic text, type T, neo UTF8
'(THIS IS THE LAP FOR (FASLAP LSP DSK (MAC LSP)))
'(COMPILED BY LISP FAST-ARITHMETIC COMPILER /628)
;COMPILED ON APRIL 17, 1976, AT 1:19 AM
(FASLAPSETUP/| T)(DECLARE (EVAL (READ)) (EVAL (READ)) (EVAL (READ)) (EVAL (READ)))(DEFPROP IMOBFL 200 SYM)(SETSYNTAX '
/] 'SPLICING (FUNCTION (LAMBDA NIL NIL)))(SETSYNTAX '/[ 'SPLICING (FUNCTION (LAMBDA NIL ((LAMBDA (IF FLAG) (COND ((EQ
IF 'IFE)) ((EQ IF 'IFN) (SETQ IF NIL)) ((EQ IF 'IFP) (SETQ IF (EVAL FLAG) FLAG NIL)) ((BREAK LOSING-IF T))) (OR (MEMQ
FLAG (STATUS FEATURES)) (SETQ IF (NOT IF))) (AND IF (DO ((Z (TYI) (TYI)) (N 1)) ((ZEROP N)) (COND ((= Z '133) (SETQ N (
1+ N))) ((= Z '135) (SETQ N (1- N))))))) (READ) (READ)) NIL)))(SETSYNTAX '/# 'MACRO '(LAMBDA NIL (COND ((= (TYIPEEK) 43)
(TYI) (EVAL (READ))) (T ((LAMBDA (DATA FFVL) (AND (SETQ FFVL (GET (CAR DATA) 'MACRO)) (SETQ DATA (FUNCALL FFVL DATA)))
DATA) (READ) NIL)))))
(LAP FASLAPBARF SUBR)
(ARGS FASLAPBARF (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(CAIE 1 'BARF)
(JRST 0 G0002)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL FBF-AUX))
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL FBARP))
(SETZB 5 4)
(MOVE 3 -1 P)
(MOVEI 2 'FBF-AUX)
(MOVEI 1 'NIL)
(CALL 5 'MSOUT)
(JRST 0 G0001)
G0002
(SKIPE 3 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0006)
(CAIE 1 'DATA)
(JRST 0 G0007)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL FBARP))
(JRST 0 G0006)
G0007
(JUMPE 1 G0005)
G0006
(JSP T SPECBIND)
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL ↑R))
(SKIPN 4 (SPECIAL MESSIOC))
(JRST 0 G0008)
(CAME 4 (SPECIAL CLPROGN))
(JRST 0 G0009)
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL ↑R))
(JRST 0 G0008)
G0009
(MOVEI 1 0 4)
(CALL 17 'IOC)
G0008
(SKIPE 1 -1 P)
(JRST 0 G0011)
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL ↑R))
G0011
(CALL 0 'TERPRI)
(SKIPN 1 (SPECIAL UNFASLCRFL))
(JRST 0 G0012)
(CALL 0 'TERPRI)
G0012
(STRT 0 (% SIXBIT |(COMMENT **FASL** !|))
(MOVEI 2 'SUBR)
(MOVE 1 0 P)
(CALL 2 'GET)
(PUSHJ P 0 1)
(STRT 0 (% SIXBIT |)!|))
(SETZM 0 (SPECIAL UNFASLCRFL))
(SKIPN 1 (SPECIAL ↑R))
(JRST 0 G0014)
(MOVEM 1 (SPECIAL UNFASLSIGNIF))
G0014
(MOVEI 1 'NIL)
(PUSHJ P UNBIND)
G0005
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FBF-AUX SUBR)
(ARGS FBF-AUX (NIL . 0))
(STRT 0 (% SIXBIT |**FASLAP-BUG** !|))
(MOVEI 2 'SUBR)
(MOVE 1 (SPECIAL FBF-AUX))
(CALL 2 'GET)
(PUSHJ P 0 1)
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP FASLVERNO SUBR)
(ARGS FASLVERNO (NIL . 0))
(STRT 0 (% SIXBIT |FASLAP ASSEMBLER LSP !|))
(MOVEI 1 'NIL)
(POPJ P)
NIL
(LAP FASLINIT SUBR)
(ARGS FASLINIT (NIL . 0))
(MOVEI 1 'NIL)
(CALL 1 'GETMIDASOP)
(MOVE 5 (SPECIAL OBARRAY))
(PUSH P (% 0 0 '(SYM ATOMINDEX ARGSINFO ENTRY)))
(PUSH P (% 0 0 '(FOO A B C AR1 AR2A T TT D R F FOO P FLP FXP SP)))
(JSP T SPECBIND)
(0 5 (SPECIAL OBARRAY))
(PUSH P (% 0 0 'NIL))
(MOVEI 1 'COBARRAY)
(CALL 1 'BOUNDP)
(JUMPE 1 G0025)
(MOVE 1 (SPECIAL COBARRAY))
(CALL 1 'TYPEP)
(CAIE 1 'ARRAY)
(JRST 0 G0025)
(MOVE 1 (SPECIAL COBARRAY))
(CALL 1 'ARRAYDIMS)
(MOVEM 1 0 P)
(JUMPE 1 G0025)
(HLRZ 2 0 1)
(CAIE 2 'OBARRAY)
(JRST 0 G0025)
(MOVEI 1 'SOBARRAY)
(CALL 1 'BOUNDP)
(JUMPE 1 G0030)
(MOVE 1 (SPECIAL SOBARRAY))
(CAMN 1 (SPECIAL COBARRAY))
(JRST 0 G0025)
G0030
(MOVE 4 (SPECIAL COBARRAY))
(MOVEM 4 (SPECIAL OBARRAY))
(PUSH P -2 P)
(PUSH P 0 P)
G0004
(SKIPN 1 0 P)
(JRST 0 G0033)
(HLRZ 1 0 1)
(CALL 1 'INTERN)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0004)
G0033
(SUB P (% 0 0 2 2))
(PUSH P -1 P)
(PUSH P 0 P)
G0008
(SKIPN 1 0 P)
(JRST 0 G0037)
(HLRZ 1 0 1)
(CALL 1 'INTERN)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0008)
G0037
(SUB P (% 0 0 2 2))
(PUSH P (% 0 0 '(% @ BLOCK ASCII SIXBIT SQUOZE CALL NCALL JCALL NJCALL ENTRY DEFSYM BLOCK SYMBOLS BEGIN DDTSYM THIS IS
THE FOR UNFASL FILE LISP COMPILED BY COMPILER *LCALL *MAP *SET *STORE *UDT 0*0PUSH 0PUSH ARGLOC CARCDR ERSETUP ERUNDO
FIX1 FIX1A FLCONS FLOAT1 FXCONS GOBRK IFIX IFLOAT IOGBND MAKUNBOUND NPUSH PDLNKJ PDLNMK SPECBIND UNBIND)))
G0011
(SKIPN 1 0 P)
(JRST 0 G0041)
(HLRZ 1 0 1)
(CALL 1 'INTERN)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0011)
G0041
(SUB P (% 0 0 1 1))
(JRST 0 G0024)
G0025
(MOVE 4 (SPECIAL OBARRAY))
(MOVEM 4 (SPECIAL COBARRAY))
(MOVE 3 (SPECIAL READTABLE))
(MOVEM 3 (SPECIAL CREADTABLE))
G0024
(PUSH FXP (% 0))
(MOVE 1 (SPECIAL OBARRAY))
(CALL 1 'ARRAYDIMS)
(HRRZ 7 0 1)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(SUBI 7 201)
(PUSH FXP 7)
(MOVEM 7 -1 FXP)
G0015
(MOVE 7 0 FXP)
(JUMPL 7 G0049)
(MOVE 1 (SPECIAL OBARRAY))
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ 1 1)
(JRST 0 (* 2))
(HRRZ 1 @ 1 1)
(PUSH P 1)
G0018
(SKIPN 1 0 P)
(JRST 0 G0054)
(HLRZ 1 0 1)
(MOVE 2 -3 P)
(CALL 2 'LREMPROP)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0018)
G0054
(SUB P (% 0 0 1 1))
(SOS 0 0 FXP)
(JRST 0 G0015)
G0049
(SUB FXP (% 0 0 2 2))
(MOVEI 1 'NIL)
(CALL 1 'FASLAPSETUP/|)
(MOVEM 1 (SPECIAL LDFNM))
(MOVEI 5 'DSK)
(MOVEM 5 (SPECIAL MSDEV))
(PUSH FXP (% 0))
G0020
(SKIPN 1 -1 P)
(JRST 0 G0059)
(HLRZ 2 0 1)
(CAIN 2 'FOO)
(JRST 0 G0060)
(MOVEI 3 'SYM)
(MOVE 7 0 FXP)
(JSP T FXCONS)
(EXCH 2 1)
(CALL 3 'PUTPROP)
G0060
(MOVE 7 0 FXP)
(ADDI 7 1)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(MOVEM 7 0 FXP)
(JRST 0 G0020)
G0059
(SUB FXP (% 0 0 1 1))
(MOVEI T G0066)
(PUSH P T)
(PUSH P (% 0 0 'LCA))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '20))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0066
(MOVEI T G0067)
(PUSH P T)
(PUSH P (% 0 0 'NUMBERTABLE))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '177))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0067
(MOVEI T G0068)
(PUSH P T)
(PUSH P (% 0 0 'BTAR))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0068
(MOVEI T G0069)
(PUSH P T)
(PUSH P (% 0 0 'BXAR))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0069
(MOVEI T G0070)
(PUSH P T)
(PUSH P (% 0 0 'BSAR))
(PUSH P (% 0 0 'T))
(PUSH P (% 0 0 '11))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0070
(PUSH FXP (% 0))
G0023
(MOVE 7 0 FXP)
(CAIN 7 20)
(JRST 0 G0072)
(MOVEI 2 '((NIL -1)))
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY LCA))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY LCA))
(AOS 0 0 FXP)
(JRST 0 G0023)
G0072
(SUB FXP (% 0 0 1 1))
(MOVEI 1 '(FEATURE NEWIO))
(CALL 17 'STATUS)
(MOVEM 1 (SPECIAL NIOP/|))
(JUMPE 1 G0077)
(MOVEI 1 'NIL)
(JRST 0 G0076)
G0077
(MOVEI T G0079)
(PUSH P T)
(PUSH P (% 0 0 'NIL))
(PUSH P (% 0 0 'FIXNUM))
(PUSH P (% 0 0 '201))
(MOVNI T 3)
(JCALL 16 '*ARRAY)
G0079
G0076
(MOVEM 1 (SPECIAL IMOSAR))
(MOVEI 1 '(FEATURE FASLAP))
(CALL 17 'SSTATUS)
(MOVEI 1 'NIL)
(CALL 17 'GCTWA)
(SUB P (% 0 0 3 3))
(JRST 0 UNBIND)
NIL
(LAP FASLAP0 SUBR)
(ARGS FASLAP0 (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(JSP T SPECBIND)
(0 0 (SPECIAL ↑W))
(0 0 (SPECIAL ↑Q))
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL CURRENTFNSYMS))
(0 0 (SPECIAL LOC))
(0 0 (SPECIAL FILOC))
(0 0 (SPECIAL CURRENTFN))
(0 0 (SPECIAL FBARP))
(0 0 (SPECIAL MAINSYMPDL))
(0 0 (SPECIAL SYMPDL))
(0 0 (SPECIAL UNFASLCRFL))
(0 0 (SPECIAL UNFASLSIGNIF))
(0 0 (SPECIAL ENTRYNAMES))
(0 0 (SPECIAL ALLATOMS))
(0 0 (SPECIAL LITLOC))
(0 0 (SPECIAL DDTSYMP))
(0 0 (SPECIAL ATOMINDEX))
(0 0 (SPECIAL SYMBOLSP))
(0 0 (SPECIAL LITERALS))
(0 0 (SPECIAL COMPILER-STATE))
(CALL 2 'FASL-A-FILE)
(SUB P (% 0 0 2 2))
(JRST 0 UNBIND)
NIL
(LAP /|FL1 SUBR)
(STRT 0 (% SIXBIT |ABORTED IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | AFTER !|))
(MOVE 1 (SPECIAL LOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS - TOTAL WORDS = !|))
(MOVE 1 (SPECIAL FILOC))
(JCALL 1 'PRIN1)
NIL
(LAP FASL-A-FILE SUBR)
(ARGS FASL-A-FILE (NIL . 2))
(PUSH P 1)
(MOVEI 1 'NIL)
(PUSH P 2)
(CALL 1 'NCONS)
(MOVE 5 (SPECIAL MSDIR))
(MOVE 4 (SPECIAL CREADTABLE))
(MOVE 3 (SPECIAL COBARRAY))
(MOVE 2 (SPECIAL BASE))
(PUSH P (% 0 0 '10))
(JSP T SPECBIND)
(-1←41 0 (SPECIAL BASE))
(0 2 (SPECIAL IBASE))
(0 3 (SPECIAL OBARRAY))
(0 4 (SPECIAL READTABLE))
(0 5 (SPECIAL MSDIR))
(PUSH P (% 0 0 'NIL))
(PUSH P (% 0 0 'NIL))
(PUSH P 1)
(MOVEI 1 'T)
(MOVEI 2 G0009)
(JSP TT ERSETUP)
(MOVEI 1 '(T))
(CALL 17 'GCTWA)
(MOVEI 2 'NIL)
(MOVE 1 -22 P)
(CALL 2 'FASL-START)
(MOVE 1 -21 P)
(JSP T PDLNMK)
(PUSH P 1)
G0002
(SKIPN 1 0 P)
(JRST 0 G0012)
(HLRZ 1 0 1)
(CALL 17 'UREAD)
(MOVEI 1 '(UREAD))
(CALL 17 'STATUS)
(MOVE 2 -17 P)
(CALL 2 'CONS)
(MOVEM 1 -17 P)
(HLRZ 1 0 1)
(CALL 1 'UNFASL-MSG)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL ↑Q))
(MOVEI T G0017)
(PUSH P T)
(PUSH P -17 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0017
(PUSH P 1)
G0004
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0020)
(MOVE 1 0 P)
(CAMN 1 -17 P)
(JRST 0 G0020)
(MOVEI 2 'NIL)
(CALL 2 'FASLIFY)
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0022)
(MOVEI T G0023)
(PUSH P T)
(PUSH P -20 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0023
(JRST 0 G0021)
G0022
(MOVEI 1 'NIL)
G0021
(MOVEM 1 0 P)
(JRST 0 G0004)
G0020
(SUB P (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0002)
G0012
(SUB P (% 0 0 1 1))
(MOVEI 1 'T)
(MOVEM 1 -17 P)
(CALL 1 'NCONS)
(JRST 0 ERUNDO)
G0009
(MOVEI 1 '(NIL))
(CALL 17 'GCTWA)
(SKIPN 1 -2 P)
(JRST 0 G0029)
(SKIPN 2 (SPECIAL FBARP))
(JRST 0 G0027)
G0029
(MOVEI 2 '/|FL1)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(SKIPN 1 (SPECIAL ↑Q))
(JRST 0 G0030)
G0007
(MOVEI T G0033)
(PUSH P T)
(PUSH P -1 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0033
(CAMN 1 0 P)
(JRST 0 G0032)
(JRST 0 G0007)
G0032
G0030
(SETZM 0 -1 P)
G0027
(MOVE 3 -5 P)
(MOVE 2 -1 P)
(MOVEI 1 0 3)
(CALL 3 'FASL-CLOSEOUT)
(SKIPN 1 (SPECIAL TTYNOTES))
(JRST 0 G0035)
(JSP T SPECBIND)
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(CALL 0 'TERPRI)
(HRRZ 1 @ -4 P)
(JUMPN 1 G0037)
(HLRZ 1 @ -4 P)
(JRST 0 G0036)
G0037
(MOVE 1 -4 P)
G0036
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | ASSEMBLED - !|))
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS!|))
(PUSHJ P UNBIND)
G0035
(MOVEI 1 'NIL)
(CALL 17 'GCTWA)
(MOVE 1 -2 P)
(SUB P (% 0 0 6 6))
(JRST 0 UNBIND)
NIL
(LAP /|FL2 SUBR)
(STRT 0 (% SIXBIT |EOF IN MIDDLE OF LAP CODE FOR !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL3 SUBR)
(STRT 0 (% SIXBIT |LOSING FASLIFY!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP FASLIFY SUBR)
(ARGS FASLIFY (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(PUSH P (% 0 0 'NIL))
(CAIN 2 'LIST)
(JRST 0 G0010)
(CAIN 2 'LAP)
(JRST 0 G0012)
(JUMPN 2 G0011)
(CALL 1 'ATOM)
(JUMPN 1 G0011)
(HLRZ 3 @ -2 P)
(CAIE 3 'LAP)
(JRST 0 G0011)
G0012
(MOVE 1 -2 P)
(JSP T PDLNMK)
(PUSH P 1)
(MOVEI 1 'NIL)
(CALL 1 'NCONS)
(PUSH P 1)
G0002
(SKIPE 1 -1 P)
(JRST 0 G0017)
(MOVE 2 -2 P)
(MOVEI 1 'NIL)
(CALL 2 'CONS)
(CALL 1 'NREVERSE)
(MOVEM 1 -4 P)
(JSP T PDLNMK)
(JRST 0 G0022)
G0017
(SKIPE 2 (SPECIAL ↑Q))
(JRST 0 G0023)
(MOVEI 2 '/|FL2)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
G0023
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 'CONS)
(MOVEM 1 -2 P)
(SKIPN 2 (SPECIAL ↑Q))
(JRST 0 G0026)
(MOVEI T G0027)
(PUSH P T)
(PUSH P -1 P)
(MOVNI T 1)
(JCALL 16 'READ)
G0027
(JRST 0 G0025)
G0026
(MOVEI 1 'NIL)
G0025
(MOVEM 1 -1 P)
(JRST 0 G0002)
G0022
(SUB P (% 0 0 2 2))
(JRST 0 G0010)
G0011
(SKIPN 1 -1 P)
(JRST 0 G0030)
(MOVEI 2 '/|FL3)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(JRST 0 G0010)
G0030
(MOVE 1 -2 P)
(JSP T PDLNMK)
(SETZM 0 -2 P)
(MOVEM 1 0 P)
(JRST 0 G0005)
G0010
G0004
(SKIPN 1 -2 P)
(JRST 0 G0033)
(HLRZ 2 0 1)
(MOVEM 2 0 P)
G0005
(MOVE 1 0 P)
(CALL 1 'ATOM)
(JUMPN 1 G0035)
(HLRZ 2 @ 0 P)
(CAIE 2 'LAP)
(JRST 0 G0037)
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(MOVEM 3 (SPECIAL CURRENTFN))
(MOVE 1 -2 P)
(CALL 1 'FASLPASS1)
(MOVE 1 -2 P)
(CALL 1 'FASLPASS2)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(MOVEM 1 -2 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL FILOC))
(SKIPN 2 (SPECIAL TTYNOTES))
(JRST 0 G0043)
(MOVE 1 (SPECIAL COMPILER-STATE))
(CAIN 1 'COMPILE)
(JRST 0 G0043)
(JSP T SPECBIND)
(0 0 (SPECIAL ↑R))
(0 0 (SPECIAL ↑W))
(CALL 0 'TERPRI)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | ASSEMBLED !|))
(PUSHJ P UNBIND)
G0043
(JRST 0 G0035)
G0037
(MOVE 1 0 P)
(CALL 1 'MUNGEABLE)
(JUMPE 1 G0044)
(MOVE 1 0 P)
(CALL 1 'COLLECTATOMS)
(MOVE 3 0 P)
(MOVEI 2 '-1←22)
(MOVEI 1 '16)
(CALL 3 'BUFFERBIN)
(JRST 0 G0035)
G0044
(HLRZ 2 @ 0 P)
(CAIE 2 'DECLARE)
(JRST 0 G0048)
(MOVEI 2 G0050)
(JSP TT ERSETUP)
(HRRZ 1 @ -15 P)
(PUSH P 1)
(PUSH P 1)
G0009
(SKIPN 1 0 P)
(JRST 0 G0053)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0009)
G0053
(SUB P (% 0 0 1 1))
(POP P 1)
(CALL 1 'NCONS)
(JRST 0 ERUNDO)
G0050
(SETZM 0 0 P)
(JRST 0 G0047)
G0048
(CAIE 2 'COMMENT)
(JRST 0 G0058)
(JRST 0 G0047)
G0058
(CAIN 2 'QUOTE)
(JRST 0 G0057)
(JRST 0 G0047)
G0057
(MOVEI 2 '(THIS IS THE LAP FOR))
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'SUBMATCH)
(JUMPE 1 G0062)
(SKIPN 2 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0066)
(MOVEI 3 ''(THIS IS THE UNFASL FOR LISP FILE DATA))
(MOVEI 2 'DATA)
(HRRZ 1 @ 0 P)
(JSP T (CARCDR 11) 0 CDDDAR)
(JSP T (CARCDR 2) 0 CADDR)
(CALL 3 'SUBST)
(JRST 0 G0065)
G0066
(MOVEI 1 'NIL)
G0065
(MOVEM 1 0 P)
(JRST 0 G0047)
G0062
(MOVEI 2 '(COMPILED BY LISP COMPILER))
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'SUBMATCH)
(JUMPE 1 G0047)
(SETZM 0 0 P)
G0047
(SKIPN 1 0 P)
(JRST 0 G0035)
(SKIPE 2 (SPECIAL UNFASLCOMMENTS))
(JRST 0 G0074)
(HLRZ 3 0 1)
(CAIN 3 'COMMENT)
(JRST 0 G0035)
(CAIN 3 'QUOTE)
(JRST 0 G0035)
G0074
(MOVEI 1 '15)
(CALL 1 'TYO)
(MOVE 1 0 P)
(CALL 1 'ATOM)
(JUMPN 1 G0077)
(HLRZ 3 @ 0 P)
(CAIE 3 'QUOTE)
(JRST 0 G0077)
(STRT 0 (% SIXBIT /'!))
(HRRZ 4 @ 0 P)
(HLRZ 4 0 4)
(MOVEM 4 0 P)
G0077
(MOVE 1 0 P)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL UNFASLSIGNIF))
(MOVEM 1 (SPECIAL UNFASLCRFL))
G0035
(HRRZ 1 @ -2 P)
(MOVEM 1 -2 P)
(JRST 0 G0004)
G0033
(MOVEI 1 'NIL)
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP FASL-START SUBR)
(ARGS FASL-START (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(SKIPE 3 (SPECIAL MSDIR))
(JRST 0 G0001)
(JSP T (CARCDR 0) 0 CADDDR)
(MOVEM 1 (SPECIAL MSDIR))
(JUMPN 1 G0001)
(MOVEI 1 'NIL)
(CALL 17 'CRUNIT)
(HRRZ 2 0 1)
(HLRZ 2 0 2)
(MOVEM 2 (SPECIAL MSDIR))
G0001
(SKIPN 1 (SPECIAL NIOP/|))
(JRST 0 G0006)
(SKIPE 2 0 P)
(JRST 0 G0007)
(MOVEI T G0009)
(PUSH P T)
(MOVE 1 (SPECIAL MSDIR))
(CALL 1 'NCONS)
(MOVE 2 (SPECIAL MSDEV))
(CALL 2 'XCONS)
(MOVEI 2 'UNFASL)
(CALL 2 'XCONS)
(HLRZ 2 @ -2 P)
(CALL 2 'XCONS)
(PUSH P 1)
(PUSH P (% 0 0 '(OUT)))
(MOVNI T 2)
(JCALL 16 'OPEN)
G0009
(MOVEM 1 (SPECIAL UFFIL))
G0007
(MOVEI T G0016)
(PUSH P T)
(HRRZ 2 @ -2 P)
(HRRZ 2 0 2)
(MOVEI 1 'OUTPUT)
(CALL 2 'CONS)
(MOVEI 2 '|.FASL.|)
(CALL 2 'XCONS)
(PUSH P 1)
(PUSH P (% 0 0 '(OUT FIXNUM DSK)))
(MOVNI T 2)
(JCALL 16 'OPEN)
G0016
(MOVEM 1 (SPECIAL IMOSAR))
(JRST 0 G0005)
G0006
(SKIPE 2 0 P)
(JRST 0 G0022)
(MOVE 1 (SPECIAL MSDIR))
(CALL 1 'NCONS)
(MOVE 2 (SPECIAL MSDEV))
(CALL 2 'XCONS)
(CALL 17 'UWRITE)
(MOVEM 1 (SPECIAL UFFIL))
G0022
(MOVEI 2 'T)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 2 'OPENIMAGEOUT)
G0005
(MOVEI 1 '124641635413)
(CALL 1 'FASLOUT)
(MOVE 1 (SPECIAL LDFNM))
(CALL 1 'FASLOUT)
(SETZM 0 (SPECIAL ALLATOMS))
(SETZM 0 (SPECIAL ENTRYNAMES))
(SETZM 0 (SPECIAL SYMPDL))
(SETZM 0 (SPECIAL MAINSYMPDL))
(SETZM 0 (SPECIAL CURRENTFNSYMS))
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL BINCT))
(MOVEI 2 '(NIL))
(MOVEI 1 'NUMBERTABLE)
(CALL 2 'FILLARRAY)
(MOVEI 1 '0)
(MOVEM 1 (SPECIAL ATOMINDEX))
(MOVEM 1 (SPECIAL LOC))
(MOVEM 1 (SPECIAL LITLOC))
(MOVEM 1 (SPECIAL FILOC))
(MOVEI 1 'T)
(MOVEM 1 (SPECIAL ↑R))
(MOVEM 1 (SPECIAL ↑W))
(MOVEM 1 (SPECIAL UNFASLCRFL))
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP UNFASL-MSG SUBR)
(ARGS UNFASL-MSG (NIL . 1))
(STRT 0 (% SIXBIT |↑M'(THIS IS THE UNFASL FOR !|))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |)↑M'(ASSEMBLED BY FASLAP LSP)↑M!|))
(SETZB 1 (SPECIAL UNFASLCRFL))
(POPJ P)
NIL
(LAP /|FL4 SUBR)
(STRT 0 (% SIXBIT |TOTAL = !|))
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | WORDS!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL5 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |UNFASL CRUNIT LOST?!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP FASL-CLOSEOUT SUBR)
(ARGS FASL-CLOSEOUT (NIL . 3))
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 3 G0007)
(MOVEI 2 '(UNFASL))
(HLRZ 1 0 3)
(CALL 2 'CONS)
(MOVEM 1 0 P)
G0007
(MOVEI 3 'NIL)
(MOVEI 2 '0)
(MOVEI 1 '17)
(CALL 3 'BUFFERBIN)
(SKIPN 1 (SPECIAL NIOP/|))
(JRST 0 G0011)
(MOVE 2 -2 P)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 2 'RENAME)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 1 'CLOSE)
(SETZM 0 (SPECIAL IMOSAR))
(JRST 0 G0010)
G0011
(MOVEI 2 'NIL)
(MOVE 1 -2 P)
(CALL 2 'OPENIMAGEOUT)
G0010
(SKIPN 1 -1 P)
(JRST 0 G0014)
(MOVEI 2 '/|FL4)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(SKIPE 1 0 P)
(JRST 0 G0016)
(JRST 0 G0015)
G0016
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0017)
(EXCH 2 1)
(MOVE 1 (SPECIAL UFFIL))
(CALL 2 'RENAME)
(MOVE 1 (SPECIAL UFFIL))
(CALL 1 'CLOSE)
(SKIPE 1 (SPECIAL UNFASLSIGNIF))
(JRST 0 G0015)
(MOVE 1 (SPECIAL UFFIL))
(CALL 1 'DELETEF)
(JRST 0 G0015)
G0017
(MOVEI 1 '(UWRITE))
(CALL 17 'STATUS)
(MOVEM 1 -2 P)
(MOVE 1 0 P)
(CALL 17 'UFILE)
(MOVE 2 (SPECIAL UFFIL))
(MOVE 1 -2 P)
(CALL 2 'EQUAL)
(JUMPN 1 G0021)
(PUSH P (% 0 0 'NIL))
(MOVEI 1 0 P)
(PUSH P 1)
(MOVE 1 -4 P)
(JSP T PDLNMK)
(PUSH P (SPECIAL UFFIL))
(PUSH P 1)
G0006
(SKIPN 1 0 P)
(JRST 0 G0026)
(SKIPN 2 -1 P)
(JRST 0 G0026)
(HLRZ 2 0 2)
(HLRZ 1 0 1)
(CALL 2 'SAMEPNAMEP)
(CALL 1 'NCONS)
(HRRM 1 @ -2 P)
(HRRZ 2 @ -1 P)
(HRRZ 3 @ 0 P)
(MOVEM 1 -2 P)
(MOVEM 2 -1 P)
(MOVEM 3 0 P)
(JRST 0 G0006)
G0026
(SUB P (% 0 0 3 3))
(POP P 1)
(CALL 17 'AND)
(JUMPN 1 G0021)
(MOVE 1 (SPECIAL UFFIL))
(CALL 1 'NCONS)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DATA))
(JUMPE 1 G0021)
(MOVEI 2 '/|FL5)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0021
(SKIPE 1 (SPECIAL UNFASLSIGNIF))
(JRST 0 G0015)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 '*APPEND)
(CALL 17 'UKILL)
G0015
(SETZM 0 (SPECIAL UFFIL))
(JRST 0 G0013)
G0014
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0042)
(MOVE 1 -2 P)
(CALL 1 'DELETEF)
(SKIPN 1 (SPECIAL UFFIL))
(JRST 0 G0041)
(SKIPN 2 0 P)
(JRST 0 G0041)
(CALL 2 'RENAME)
(MOVE 1 (SPECIAL UFFIL))
(CALL 1 'CLOSE)
(SETZM 0 (SPECIAL UFFIL))
(JRST 0 G0041)
G0042
(MOVE 1 -2 P)
(CALL 17 'UKILL)
(SKIPN 1 (SPECIAL UFFIL))
(JRST 0 G0041)
(SKIPN 2 0 P)
(JRST 0 G0041)
(MOVEI 1 0 2)
(CALL 17 'UFILE)
(SETZM 0 (SPECIAL UFFIL))
G0041
(MOVE 1 (SPECIAL MAINSYMPDL))
(CALL 1 'MOBYSYMPOP)
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
G0013
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVEI 1 'ENTRY)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVEI 1 'ARGSINFO)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL ALLATOMS))
(MOVEI 1 'ATOMINDEX)
(CALL 2 'REMPROPL)
(MOVEI 2 '(NIL))
(MOVEI 1 'BSAR)
(CALL 2 'FILLARRAY)
(MOVEI 2 '(NIL))
(MOVEI 1 'NUMBERTABLE)
(CALL 2 'FILLARRAY)
(SETZM 0 (SPECIAL ALLATOMS))
(SETZM 0 (SPECIAL ENTRYNAMES))
(SETZM 0 (SPECIAL SYMPDL))
(SETZM 0 (SPECIAL MAINSYMPDL))
(SETZB 1 (SPECIAL CURRENTFNSYMS))
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP /|FL6 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |NOT LAP LISTING!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL7 SUBR)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | DUPLICATED FUNCTION !|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL10 SUBR)
(MOVE 1 (SPECIAL FILOC))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(MOVE 1 (SPECIAL DATA))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL11 SUBR)
(STRT 0 (% SIXBIT |NO NIL?!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL12 SUBR)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | DUPLICATED FUNCTION IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL13 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | !|))
(MOVE 1 (SPECIAL EXPR))
(JCALL 1 'PRIN1)
NIL
(LAP FASLPASS1 SUBR)
(ARGS FASLPASS1 (NIL . 1))
(MOVEI 5 '10)
(JSP T SPECBIND)
(0 5 (SPECIAL BASE))
(0 5 (SPECIAL IBASE))
(0 0 (SPECIAL AMBIGSYMS))
(0 0 (SPECIAL EXPR))
(PUSH P 1)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(HLRZ 2 0 1)
(HLRZ 2 0 2)
(CAIN 2 'LAP)
(JRST 0 G0015)
(MOVEI 2 '/|FL6)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0015
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL LOC))
(HLRZ 1 @ 0 P)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL CURRENTFN))
(SETZM 0 (SPECIAL CURRENTFNSYMS))
(MOVEI 2 'ENTRY)
(CALL 2 'GET)
(JUMPE 1 G0019)
(MOVEI 2 '/|FL7)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
(JRST 0 ERUNDO)
G0019
(MOVE 2 (SPECIAL ENTRYNAMES))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ENTRYNAMES))
(MOVEI 3 'ENTRY)
(MOVE 2 (SPECIAL FILOC))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 3 'PUTPROP)
(HLRZ 1 @ 0 P)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL10)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(PUSH FXP (% 0))
(HRRZ 1 @ 0 P)
(PUSH P 1)
G0003
(SKIPE 1 0 P)
(JRST 0 G0028)
(MOVEI 2 '/|FL11)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(JRST 0 G0026)
G0028
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL EXPR))
(JUMPE 1 G0026)
(CALL 1 'ATOM)
(JUMPE 1 G0031)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(MOVEI 2 0 1)
(MOVE 1 (SPECIAL EXPR))
(CALL 2 'FASLDEFSYM)
(JRST 0 G0030)
G0031
(HLRZ 2 @ (SPECIAL EXPR))
(CAIE 2 'ENTRY)
(JRST 0 G0037)
(MOVEI 2 'ENTRY)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'GET)
(JUMPE 1 G0039)
(MOVEI 2 '/|FL12)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
(JRST 0 ERUNDO)
G0039
(MOVE 2 (SPECIAL ENTRYNAMES))
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ENTRYNAMES))
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 3 'ENTRY)
(MOVEI 2 0 1)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(MOVEI 2 '/|FL13)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
(JRST 0 G0030)
G0037
(CAIE 2 'DEFSYM)
(JRST 0 G0048)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0008
(SKIPN 1 0 P)
(JRST 0 G0052)
(HRRZ 2 0 1)
(JUMPE 2 G0052)
(HLRZ 1 0 1)
(PUSH P 1)
(HLRZ 1 0 2)
(CALL 1 '*EVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLDEFSYM)
(HRRZ 1 @ 0 P)
(HRRZ 1 0 1)
(MOVEM 1 0 P)
(JRST 0 G0008)
G0052
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0048
(CAIE 2 'DDTSYM)
(JRST 0 G0059)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL DDTSYMP))
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0011
(SKIPN 1 0 P)
(JRST 0 G0063)
(HLRZ 1 0 1)
(CALL 1 '*DDTSYM)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0011)
G0063
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0059
(CAIE 2 'EVAL)
(JRST 0 G0066)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0014
(SKIPN 1 0 P)
(JRST 0 G0070)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0014)
G0070
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0066
(CAIE 2 'SYMBOLS)
(JRST 0 G0073)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL SYMBOLSP))
(JRST 0 G0030)
G0073
(CAIN 2 'SIXBIT)
(JRST 0 G0076)
(CAIN 2 'ASCII)
(JRST 0 G0076)
(CAIE 2 'BLOCK)
(JRST 0 G0075)
G0076
(PUSH P (SPECIAL LOC))
(MOVE 1 (SPECIAL EXPR))
(NCALL 1 'BLOBLENGTH)
(MOVEM 7 0 FXP)
(ADD 7 @ 0 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(SUB P (% 0 0 1 1))
(JRST 0 G0030)
G0075
(CAIN 2 'COMMENT)
(JRST 0 G0030)
(CAIN 2 'ARGS)
(JRST 0 G0030)
(MOVEI 2 'T)
(MOVE 1 (SPECIAL EXPR))
(NCALL 2 'RECLITCOUNT)
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
G0030
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0003)
G0026
(SUB P (% 0 0 1 1))
(MOVE 5 (SPECIAL LOC))
(MOVEM 5 (SPECIAL LITLOC))
(MOVE 1 (SPECIAL LITERALS))
(CALL 1 'NREVERSE)
(MOVEM 1 (SPECIAL LITERALS))
(MOVEI 1 'NIL)
(PUSHJ P UNBIND)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP RECLITCOUNT SUBR)
(ARGS RECLITCOUNT (NIL . 2))
(PUSH P (% 0 0 FIX1))
(JSP T SPECBIND)
(0 1 (SPECIAL EXPR))
(PUSH P 2)
(HRRZ 3 0 1)
(JUMPE 3 G0002)
(HRRZ 4 0 3)
(JUMPE 4 G0002)
(HLRZ 5 0 4)
(CAIN 5 '@)
(JRST 0 G0008)
(HLRZ 1 0 3)
(CAIE 1 '@)
(JRST 0 G0007)
G0008
(HRRZ 1 0 4)
(HLRZ 1 0 1)
(JRST 0 G0006)
G0007
(MOVEI 1 0 5)
G0006
(MOVEM 1 (SPECIAL EXPR))
(JUMPE 1 G0002)
(CALL 1 'ATOM)
(JUMPN 1 G0002)
(HLRZ 3 @ (SPECIAL EXPR))
(CAIE 3 '%)
(JRST 0 G0002)
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 1 'LAPCONST)
(JUMPN 1 G0002)
(SKIPN 2 0 P)
(JRST 0 G0021)
(MOVE 2 (SPECIAL LITERALS))
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL LITERALS))
(MOVEI 7 0)
(JRST 0 G0001)
G0021
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(CAIN 3 'SIXBIT)
(JRST 0 G0025)
(CAIN 3 'ASCII)
(JRST 0 G0025)
(CAIE 3 'BLOCK)
(JRST 0 G0024)
G0025
(MOVE 1 (SPECIAL EXPR))
(NCALL 1 'BLOBLENGTH)
(JRST 0 G0001)
G0024
(MOVEI 2 'NIL)
(MOVE 1 (SPECIAL EXPR))
(NCALL 2 'RECLITCOUNT)
(ADDI 7 1)
(JRST 0 G0001)
G0002
(MOVEI 7 0)
G0001
(SUB P (% 0 0 1 1))
(JRST 0 UNBIND)
NIL
(LAP /|FL14 SUBR)
(STRT 0 (% SIXBIT |PHASE SCREW AT ENTRY !|))
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL15 SUBR)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | MISPLACED ARGS INFO!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL16 SUBR)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | FUNCTION NOT SEEN FOR THIS INFO!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP /|FL17 SUBR)
(STRT 0 (% SIXBIT |UNDEFINED SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT |↑ICONVERTED TO DDT SYMBOLS - !|))
(MOVE 1 (SPECIAL DDTSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL20 SUBR)
(STRT 0 (% SIXBIT |DDT SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - !|))
(MOVE 1 (SPECIAL DDTSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL21 SUBR)
(STRT 0 (% SIXBIT |UNDEFINED SYMBOLS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - !|))
(MOVE 1 (SPECIAL UNDEFSYMS))
(JCALL 1 'PRIN1)
NIL
(LAP /|FL22 SUBR)
(STRT 0 (% SIXBIT |LITERAL PHASE SCREW IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP FASLPASS2 SUBR)
(ARGS FASLPASS2 (NIL . 1))
(MOVEI 5 '0)
(MOVEI 4 '10)
(JSP T SPECBIND)
(0 4 (SPECIAL BASE))
(0 4 (SPECIAL IBASE))
(0 5 (SPECIAL LITCNT))
(0 0 (SPECIAL DDTSYMS))
(0 0 (SPECIAL AMBIGSYMS))
(0 0 (SPECIAL LASTENTRY))
(0 0 (SPECIAL LITERALP))
(0 0 (SPECIAL UNDEFSYMS))
(0 0 (SPECIAL EXPR))
(PUSH P 1)
(PUSH FXP (% 0))
(PUSH P (SPECIAL LITERALS))
(MOVE 7 @ (SPECIAL LOC))
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVEI 3 '0)
(MOVEM 3 (SPECIAL LOC))
(MOVEI 2 0 1)
(HLRZ 1 @ -1 P)
(MOVEM 1 (SPECIAL EXPR))
(HRRZ 1 0 1)
(PUSH P 2)
(CALL 1 'COLLECTATOMS)
(HRRZ 2 @ (SPECIAL EXPR))
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 2 'CONS)
(MOVEI 2 'ENTRY)
(PUSH P 1)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'GET)
(POP P 2)
(CALL 2 'XCONS)
(MOVEI 2 'NIL)
(CALL 2 'CONS)
(PUSH P 1)
(MOVEI 2 'SYMBOLSP)
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 2 'GET)
(JUMPE 1 G0032)
(MOVE 3 (SPECIAL CURRENTFN))
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
G0032
(MOVE 5 (SPECIAL CURRENTFN))
(MOVEM 5 (SPECIAL LASTENTRY))
(PUSH P (% 0 0 'NIL))
(PUSH FXP (% 0))
(HRRZ 1 @ -4 P)
(PUSH P 1)
G0003
(HLRZ 1 @ 0 P)
(MOVEM 1 (SPECIAL EXPR))
(JUMPN 1 G0038)
(MOVE 5 0 P)
(MOVEM 5 -1 P)
(JRST 0 G0037)
G0038
(CALL 1 'ATOM)
(JUMPE 1 G0042)
(SKIPN 2 (SPECIAL SYMBOLSP))
(JRST 0 G0041)
(MOVE 3 (SPECIAL EXPR))
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
(JRST 0 G0041)
G0042
(HLRZ 2 @ (SPECIAL EXPR))
(CAIE 2 'ENTRY)
(JRST 0 G0045)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(MOVEI 2 'ENTRY)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(MOVEM 7 0 FXP)
(CALL 2 'GET)
(MOVE 7 0 FXP)
(CAMN 7 0 1)
(JRST 0 G0047)
(MOVEI 2 '/|FL14)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0047
(HRRZ 1 @ (SPECIAL EXPR))
(CALL 1 'COLLECTATOMS)
(HRRZ 1 @ (SPECIAL EXPR))
(HRRZ 1 0 1)
(JUMPE 1 G0055)
(HLRZ 1 0 1)
(JRST 0 G0054)
G0055
(HLRZ 1 @ -5 P)
(JSP T (CARCDR 2) 0 CADDR)
G0054
(HRRZ 2 @ (SPECIAL EXPR))
(HLRZ 2 0 2)
(CALL 2 'XCONS)
(PUSH P 1)
(MOVE 7 0 FXP)
(JSP T FXCONS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'CONS)
(MOVE 2 -2 P)
(CALL 2 'CONS)
(MOVEM 1 -2 P)
(SKIPN 2 (SPECIAL SYMBOLSP))
(JRST 0 G0065)
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(MOVEI 2 '0)
(MOVEI 1 '15)
(CALL 3 'BUFFERBIN)
G0065
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL LASTENTRY))
(JRST 0 G0041)
G0045
(CAIE 2 'ARGS)
(JRST 0 G0069)
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(CAME 3 (SPECIAL LASTENTRY))
(JRST 0 G0071)
(MOVEI 3 'ARGSINFO)
(HRRZ 2 @ (SPECIAL EXPR))
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(HRRZ 1 @ (SPECIAL EXPR))
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(JRST 0 G0041)
G0071
(MOVEI 2 'ENTRY)
(EXCH 1 3)
(CALL 2 'GET)
(JUMPE 1 G0075)
(MOVEI 2 '/|FL15)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0041)
G0075
(MOVEI 2 '/|FL16)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0041)
G0069
(CAIE 2 'SYMBOLS)
(JRST 0 G0078)
(HRRZ 3 @ (SPECIAL EXPR))
(HLRZ 3 0 3)
(MOVEM 3 (SPECIAL SYMBOLSP))
(JRST 0 G0041)
G0078
(CAIE 2 'EVAL)
(JRST 0 G0081)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0008
(SKIPN 1 0 P)
(JRST 0 G0085)
(HLRZ 1 0 1)
(CALL 1 '*EVAL)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0008)
G0085
(SUB P (% 0 0 1 1))
(JRST 0 G0041)
G0081
(CAIE 2 'DDTSYM)
(JRST 0 G0088)
(HRRZ 1 @ (SPECIAL EXPR))
(PUSH P 1)
G0011
(SKIPN 1 0 P)
(JRST 0 G0092)
(HLRZ 1 0 1)
(PUSH P 1)
(MOVE 2 (SPECIAL DDTSYMS))
(CALL 2 'MEMQ)
(JUMPN 1 G0094)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DDTSYMS))
G0094
(SUB P (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0011)
G0092
(SUB P (% 0 0 1 1))
(JRST 0 G0041)
G0088
(CAIN 2 'DEFSYM)
(JRST 0 G0041)
(CAIN 2 'COMMENT)
(JRST 0 G0041)
(MOVE 1 (SPECIAL EXPR))
(CALL 1 'MAKEWORD)
G0041
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0003)
G0037
(SUB P (% 0 0 1 1))
(PUSH P (% 0 0 'NIL))
(SKIPE 1 (SPECIAL LITERALS))
(JRST 0 G0022)
(MOVE 7 @ (SPECIAL LOC))
(CAME 7 @ (SPECIAL LITLOC))
(JRST 0 G0022)
(MOVEI 5 'T)
(MOVEM 5 (SPECIAL LITERALP))
(PUSH P -4 P)
G0014
(SKIPN 1 0 P)
(JRST 0 G0103)
(HLRZ 1 0 1)
(CALL 1 'MAKEWORD)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0014)
G0103
(SUB P (% 0 0 1 1))
(MOVE 7 @ (SPECIAL LITLOC))
(ADD 7 @ (SPECIAL LITCNT))
(CAME 7 @ (SPECIAL LOC))
(JRST 0 G0022)
(PUSH P -2 P)
G0017
(SKIPN 1 0 P)
(JRST 0 G0108)
(HLRZ 1 0 1)
(MOVEI 2 'ARGSINFO)
(PUSH P 1)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'GET)
(MOVEM 1 -2 P)
(HLRZ 1 0 1)
(NCALL 1 'ARGSINFO)
(LSH 7 33)
(HRRZ 1 @ -2 P)
(PUSH FXP 7)
(NCALL 1 'ARGSINFO)
(LSH 7 22)
(IOR 7 0 FXP)
(HRRZ 10 @ 0 P)
(IOR 7 0 10)
(HLRZ 3 @ 0 P)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '13)
(CALL 3 'BUFFERBIN)
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0017)
G0108
(SUB P (% 0 0 1 1))
(SKIPN 1 (SPECIAL DDTSYMS))
(JRST 0 G0123)
(SKIPE 2 (SPECIAL DDTSYMP))
(JRST 0 G0125)
(SKIPN 0 (SPECIAL TTYNOTES))
(TDZA 1 1)
(MOVEI 1 'T)
(MOVEI 2 '/|FL17)
(CALL 2 'FASLAPBARF)
(JRST 0 G0124)
G0125
(MOVEI 2 '/|FL20)
(MOVEI 1 'NIL)
(CALL 2 'FASLAPBARF)
G0124
G0123
(SKIPN 1 (SPECIAL UNDEFSYMS))
(JRST 0 G0128)
(MOVEI 2 '/|FL21)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
G0128
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVEI 1 'SYM)
(CALL 2 'REMPROPL)
(MOVE 1 (SPECIAL SYMPDL))
(CALL 1 'MOBYSYMPOP)
(MOVE 1 -1 P)
(JRST 0 G0130)
G0022
(MOVEI 2 '/|FL22)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(MOVEI 1 'NIL)
G0130
(PUSHJ P UNBIND)
(SUB P (% 0 0 6 6))
(SUB FXP (% 0 0 2 2))
(POPJ P)
NIL
(LAP ARGSINFO SUBR)
(ARGS ARGSINFO (NIL . 1))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(JUMPN 1 G0002)
(MOVEI 7 0)
(JRST 0 G0001)
G0002
(MOVE 7 0 1)
(CAIE 7 777)
(JRST 0 G0003)
(MOVE 7 0 1)
(JRST 0 G0001)
G0003
(ADDI 7 1)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL23 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | LITERAL NOT IN ADDRESS FIELD IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP FASLEVAL SUBR)
(ARGS FASLEVAL (NIL . 1))
(PUSH P 1)
(CALL 1 'NUMBERP)
(JUMPE 1 G0005)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0004)
G0005
(MOVE 1 0 P)
(CALL 1 'ATOM)
(JUMPE 1 G0008)
(MOVE 1 0 P)
(CAIE 1 '*)
(JRST 0 G0010)
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0004)
G0010
(MOVEI 2 'SYM)
(CALL 2 'GET)
(JUMPN 1 G0004)
(SKIPN 2 0 P)
(JRST 0 G0017)
(MOVE 5 (SPECIAL UNDEFSYMS))
(JUMPE 5 G0016)
(HLRZ 4 0 5)
(HRRZ 5 0 5)
(CAIE 4 0 2)
(JRST 0 (* -4))
G0017
(MOVEI 1 '0)
(JRST 0 G0004)
G0016
(EXCH 1 2)
(CALL 1 'GETMIDASOP)
(PUSH P 1)
(JUMPE 1 G0020)
(MOVEI 3 'SYM)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
G0020
(SUB P (% 0 0 1 1))
(JUMPN 1 G0004)
(SKIPE 2 (SPECIAL DDTSYMP))
(JRST 0 G0024)
(MOVE 2 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DDTSYMS))
(MOVE 1 0 P)
(CALL 1 '*DDTSYM)
(JRST 0 G0004)
G0024
(MOVE 2 (SPECIAL UNDEFSYMS))
(MOVE 1 0 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL UNDEFSYMS))
(MOVEI 1 '0)
(JRST 0 G0004)
G0008
(HLRZ 2 @ 0 P)
(CAIE 2 'QUOTE)
(JRST 0 G0031)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'ATOM)
(JUMPE 1 G0033)
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0004)
G0033
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(HRRZ 3 0 3)
(CAME 3 (SPECIAL GOFOO))
(JRST 0 G0037)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 'NCONS)
(MOVEI 2 'EVAL)
(CALL 2 'XCONS)
(JRST 0 G0004)
G0037
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0004)
G0031
(CAIN 2 'SPECIAL)
(JRST 0 G0044)
(CAIN 2 'FUNCTION)
(JRST 0 G0044)
(CAIN 2 'ARRAY)
(JRST 0 G0044)
(CAIE 2 'EVAL)
(JRST 0 G0043)
G0044
(MOVE 1 0 P)
(JSP T PDLNMK)
(JRST 0 G0004)
G0043
(CAIE 2 '%)
(JRST 0 G0050)
(MOVE 7 @ (SPECIAL FSLFLD))
(SOJE 7 G0052)
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL23)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 1 '0)
(JRST 0 G0004)
G0052
(HRRZ 1 @ 0 P)
(CALL 1 'LAPCONST)
(JUMPN 1 G0004)
(SKIPE 2 (SPECIAL LITERALP))
(JRST 0 G0056)
(HRRZ 3 @ (SPECIAL LITERALS))
(MOVEM 3 (SPECIAL LITERALS))
(PUSH FXP (% 0))
(PUSH FXP (% 0))
(MOVE 7 @ (SPECIAL LITCNT))
(MOVEM 7 -1 FXP)
(MOVEI 5 -1 FXP)
(PUSH P (SPECIAL LITCNT))
(PUSH P 5)
(HRRZ 4 @ -2 P)
(HLRZ 4 0 4)
(CAIN 4 'SIXBIT)
(JRST 0 G0060)
(CAIN 4 'ASCII)
(JRST 0 G0060)
(CAIE 4 'BLOCK)
(JRST 0 G0059)
G0060
(HRRZ 1 @ -2 P)
(NCALL 1 'BLOBLENGTH)
(JRST 0 G0058)
G0059
(MOVEI 2 'NIL)
(HRRZ 1 @ -2 P)
(NCALL 2 'RECLITCOUNT)
(JUMPN 7 G0066)
(MOVEI 7 1)
(JRST 0 G0058)
G0066
(MOVEI 2 'NIL)
(HRRZ 1 @ -2 P)
(NCALL 2 'RECLITCOUNT)
(ADD 7 @ 0 P)
(MOVEM 7 0 FXP)
(MOVEI 1 0 FXP)
(MOVE 7 0 1)
(SUB 7 @ (SPECIAL LITCNT))
(ADDI 7 1)
(MOVEM 1 0 P)
G0058
(ADD 7 @ -1 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LITCNT))
(MOVE 7 @ (SPECIAL FILOC))
(ADD 7 @ (SPECIAL LITLOC))
(ADD 7 @ 0 P)
(JSP T FXCONS)
(CALL 1 'NCONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 2 2))
(JRST 0 G0004)
G0056
(MOVEI 1 '*)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(CALL 1 'MAKEWORD)
(POP P 1)
(JRST 0 G0004)
G0050
(CAIN 2 'ASCII)
(JRST 0 G0086)
(CAIE 2 'SIXBIT)
(JRST 0 G0085)
G0086
(CAIN 2 'ASCII)
(SKIPA 2 (% 0 0 '7))
(MOVEI 2 '6)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 2 'PNGET)
(HLRZ 1 0 1)
(JRST 0 G0004)
G0085
(CAIE 2 'SQUOZE)
(JRST 0 G0095)
(HRRZ 1 @ 0 P)
(CALL 1 'SQOZ/|)
(JRST 0 G0004)
G0095
(CAIE 2 '/-)
(JRST 0 G0099)
(HRRZ 3 @ 0 P)
(HRRZ 3 0 3)
(JUMPN 3 G0101)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(CALL 1 'FASLMINUS)
(JRST 0 G0004)
G0101
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLDIFF)
(JRST 0 G0004)
G0099
(CAIE 2 '/+)
(JRST 0 G0111)
(HRRZ 1 @ 0 P)
(HLRZ 1 0 1)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLPLUS)
(JRST 0 G0004)
G0111
(HRRZ 3 @ 0 P)
(JUMPE 3 G0118)
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(CALL 1 'FASLEVAL)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 'FASLPLUS)
(JRST 0 G0004)
G0118
(EXCH 1 2)
(CALL 1 'FASLEVAL)
G0004
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP FASLPLUS SUBR)
(ARGS FASLPLUS (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0002)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0004)
(MOVE 7 @ -1 P)
(ADD 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0004
(HLRZ 3 @ 0 P)
(CAIE 3 'RELOC)
(JRST 0 G0008)
(MOVE 7 @ -1 P)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0008
(EXCH 1 3)
(CALL 1 'NUMBERP)
(JUMPE 1 G0016)
(MOVE 7 @ -1 P)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0016
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0002
(HLRZ 3 @ -1 P)
(CAIE 3 'RELOC)
(JRST 0 G0024)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0026)
(MOVE 7 @ 0 P)
(HRRZ 10 @ -1 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0026
(HLRZ 1 @ 0 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0034)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(HRRZ 10 @ -1 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0034
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0024
(EXCH 1 3)
(CALL 1 'NUMBERP)
(JUMPE 1 G0046)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0049)
(MOVE 7 @ 0 P)
(HLRZ 10 @ -1 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ -1 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0049
(HLRZ 4 @ 0 P)
(CAIE 4 'RELOC)
(JRST 0 G0056)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 2 0 2)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0056
(EXCH 1 4)
(CALL 1 'NUMBERP)
(JUMPE 1 G0067)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(ADD 7 10)
(HRRZ 2 @ 0 P)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0067
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0046
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FASLDIFF SUBR)
(ARGS FASLDIFF (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0002)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0004)
(MOVE 7 @ -1 P)
(SUB 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0004
(HLRZ 1 @ 0 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0008)
(MOVE 7 @ -1 P)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0008
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0002
(HLRZ 3 @ -1 P)
(CAIE 3 'RELOC)
(JRST 0 G0017)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0019)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(SUB 7 @ 0 P)
(HRRZ 2 @ -1 P)
(HRRZ 2 0 2)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0019
(HLRZ 4 @ 0 P)
(CAIE 4 'RELOC)
(JRST 0 G0027)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(HRRZ 10 @ 0 P)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0027
(EXCH 1 4)
(CALL 1 'NUMBERP)
(JUMPE 1 G0038)
(HRRZ 7 @ -1 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(HRRZ 1 0 1)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 'RELOC)
(CALL 2 'XCONS)
(JRST 0 G0001)
G0038
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0017
(EXCH 1 3)
(CALL 1 'NUMBERP)
(JUMPE 1 G0051)
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0054)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(SUB 7 @ 0 P)
(HRRZ 2 @ -1 P)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0054
(HLRZ 1 @ 0 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0061)
(HLRZ 7 @ -1 P)
(MOVE 7 0 7)
(HLRZ 10 @ 0 P)
(MOVE 10 0 10)
(SUB 7 10)
(HRRZ 1 @ -1 P)
(PUSH P 1)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP P 1)
(CALL 2 '*APPEND)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0061
(MOVEI 1 'FOO)
(JRST 0 G0001)
G0051
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP FASLMINUS SUBR)
(ARGS FASLMINUS (NIL . 1))
(PUSH P 1)
(CALL 1 'NUMBERP)
(JUMPE 1 G0002)
(MOVN 7 @ 0 P)
(JSP T FXCONS)
(JRST 0 G0001)
G0002
(HLRZ 1 @ 0 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0006)
(HLRZ 7 @ 0 P)
(MOVN 7 0 7)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(CALL 1 'FASLNEGLIS)
(MOVEI 2 0 1)
(POP FXP 7)
(JSP T FXCONS)
(CALL 2 'CONS)
(JRST 0 G0001)
G0006
(MOVEI 1 'FOO)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP FASLNEGLIS SUBR)
(ARGS FASLNEGLIS (NIL . 1))
(PUSH P (% 0 0 'NIL))
(MOVEI 5 0 P)
(JSP T PDLNMK)
(PUSH P 1)
(PUSH P 5)
G0005
(SKIPN 1 -1 P)
(JRST 0 G0008)
(HLRZ 1 0 1)
(PUSH P 1)
(HRRZ 2 0 1)
(HRRZ 2 0 2)
(JUMPE 2 G0013)
(TDZA 2 2)
G0013
(MOVEI 2 '/-)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 2 'CONS)
(HLRZ 2 @ 0 P)
(CALL 2 'XCONS)
(SUB P (% 0 0 1 1))
(CALL 1 'NCONS)
(HRRM 1 @ 0 P)
(HRRZ 2 @ -1 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(JRST 0 G0005)
G0008
(SUB P (% 0 0 2 2))
(POP P 1)
(POPJ P)
NIL
(LAP LAPCONST SUBR)
(ARGS LAPCONST (NIL . 1))
(PUSH P 1)
(HLRZ 1 0 1)
(CALL 1 (FUNCTION NUMBERP))
(SKIPE 0 1)
(JUMPE TT G0002)
(HRRZ 1 @ 0 P)
(JUMPN 1 G0004)
(HLRZ 1 @ 0 P)
(CALL 1 'LAPC1)
(JRST 0 G0001)
G0004
(MOVEI 1 'NIL)
(JRST 0 G0001)
G0002
(HRRZ 1 @ 0 P)
(JUMPN 1 G0008)
(MOVEI 1 '(0 (NIL -1)))
(JRST 0 G0001)
G0008
(HLRZ 1 0 1)
(CALL 1 'FIXP)
(JUMPE 1 G0011)
(HRRZ 7 @ 0 P)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(JUMPN 7 G0011)
(HRRZ 1 @ 0 P)
(HRRZ 1 0 1)
(MOVEM 1 0 P)
(JUMPN 1 G0010)
G0011
(MOVEI 1 'NIL)
(JRST 0 G0001)
G0010
(HRRZ 2 0 1)
(JUMPN 2 G0017)
(HLRZ 1 0 1)
(CALL 1 'LAPC1)
(JRST 0 G0001)
G0017
(HLRZ 1 0 1)
(CALL 1 'FIXP)
(JUMPE 1 G0021)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(CAIL 7 20)
(JRST 0 G0021)
(JUMPLE 7 G0021)
(HLRZ 1 0 2)
(CALL 1 'FIXP)
(JUMPE 1 G0021)
(HLRZ 7 @ 0 P)
(MOVE 7 0 7)
(HLRZ 10 0 2)
(MOVE 10 0 10)
(CAME 7 10)
(JRST 0 G0021)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY LCA))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY LCA))
(JRST 0 G0001)
G0021
(MOVEI 1 'NIL)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP LAPC1 SUBR)
(ARGS LAPC1 (NIL . 1))
(PUSH P 1)
(CAIE 1 'FIX1)
(JRST 0 G0002)
(MOVEI 1 '(-2 (NIL -1)))
(JRST 0 G0001)
G0002
(CAIE 1 'FLOAT1)
(JRST 0 G0003)
(MOVEI 1 '(-1 (NIL -1)))
(JRST 0 G0001)
G0003
(CALL 1 'TYPEP)
(CAIE 1 'LIST)
(JRST 0 G0006)
(HLRZ 2 @ 0 P)
(CAIE 2 'QUOTE)
(JRST 0 G0006)
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(JUMPE 3 G0005)
G0006
(TDZA 1 1)
G0005
(MOVEI 1 '(0 (NIL -1)))
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL24 SUBR)
(STRT 0 (% SIXBIT |ATOMINDEX SCREW ON !|))
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP ATOMINDEX SUBR)
(ARGS ATOMINDEX (NIL . 2))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(PUSH P 2)
(JUMPN 1 G0003)
(MOVEI 7 0)
(JRST 0 G0002)
G0003
(JUMPN 2 G0005)
(CALL 1 'TYPEP)
(MOVEM 1 0 P)
G0005
(MOVE 1 0 P)
(CAIE 1 'SYMBOL)
(JRST 0 G0009)
(MOVEI 2 'ATOMINDEX)
(MOVE 1 -1 P)
(CALL 2 'GET)
(JRST 0 G0008)
G0009
(MOVEI 2 '(FIXNUM FLONUM BIGNUM))
(CALL 2 'MEMQ)
(JUMPE 1 G0008)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 'HASSOCN)
(HRRZ 1 0 1)
G0008
(MOVEM 1 0 P)
(JUMPN 1 G0015)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(JSP T SPECBIND)
(0 1 (SPECIAL DATA))
(MOVEI 2 '/|FL24)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
(PUSHJ P UNBIND)
G0015
(MOVE 7 @ 0 P)
G0002
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP COLLECTATOMS SUBR)
(ARGS COLLECTATOMS (NIL . 1))
(PUSH P 1)
(JUMPE 1 G0003)
(PUSH P (% 0 0 'NIL))
G0001
(MOVE 1 -1 P)
(CALL 1 'TYPEP)
(MOVEM 1 0 P)
(CAIE 1 'LIST)
(JRST 0 G0005)
(HLRZ 1 @ -1 P)
(CALL 1 'COLLECTATOMS)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(JUMPN 1 G0001)
(JRST 0 G0004)
G0005
(CAIE 1 'SYMBOL)
(JRST 0 G0009)
(MOVEI 2 'ATOMINDEX)
(MOVE 1 -1 P)
(CALL 2 'GET)
(JUMPN 1 G0004)
(MOVE 2 (SPECIAL ALLATOMS))
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL ALLATOMS))
(MOVE 7 @ (SPECIAL ATOMINDEX))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL ATOMINDEX))
(MOVEI 3 'ATOMINDEX)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
(MOVE 3 -1 P)
(MOVEI 2 '0)
(MOVEI 1 '12)
(CALL 3 'BUFFERBIN)
(JRST 0 G0004)
G0009
(CAIN 1 'FIXNUM)
(JRST 0 G0018)
(CAIN 1 'FLONUM)
(JRST 0 G0018)
(CAIE 1 'BIGNUM)
(JRST 0 G0004)
G0018
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(CALL 2 'HASSOCN)
(PUSH P 1)
(HRRZ 2 0 1)
(JUMPN 2 G0020)
(MOVE 7 @ (SPECIAL ATOMINDEX))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL ATOMINDEX))
(EXCH 2 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVE 2 -1 P)
(CALL 2 'XCONS)
(CALL 1 'NCONS)
(HRRM 1 @ 0 P)
(MOVE 3 -2 P)
(MOVEI 2 '0)
(MOVEI 1 '12)
(CALL 3 'BUFFERBIN)
G0020
(SUB P (% 0 0 1 1))
G0004
(MOVEI 1 'NIL)
(SUB P (% 0 0 1 1))
G0003
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP HASSOCN SUBR)
(ARGS HASSOCN (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 '(FIXNUM FLONUM))
(MOVE 1 0 P)
(CALL 2 'MEMQ)
(PUSH FXP (% 0))
(PUSH P 1)
(JUMPE 1 G0003)
(MOVE 7 @ -2 P)
(MOVEM 7 0 FXP)
G0003
(MOVE 1 -2 P)
(NCALL 1 'SXHASH)
(MOVM 7 7)
(IDIVI 7 177)
(MOVE 7 10)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY NUMBERTABLE))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY NUMBERTABLE))
(PUSH P 1)
(PUSH FXP 10)
(PUSH P (% 0 0 'NIL))
G0001
(HRRZ 1 @ -1 P)
(MOVEM 1 0 P)
(JUMPN 1 G0012)
(MOVE 1 -1 P)
(JUMPN 1 G0014)
(CALL 1 'NCONS)
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY NUMBERTABLE))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY NUMBERTABLE))
G0014
(JRST 0 G0019)
G0012
(HLRZ 2 0 1)
(HLRZ 2 0 2)
(CAME 2 -3 P)
(JRST 0 G0011)
(SKIPN 3 -2 P)
(JRST 0 G0023)
(HLRZ 7 0 1)
(HRRZ 7 0 7)
(HLRZ 7 0 7)
(MOVE 7 0 7)
(CAME 7 -1 FXP)
(JRST 0 G0011)
(JRST 0 G0022)
G0023
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HLRZ 2 0 2)
(MOVE 1 -4 P)
(CALL 2 'EQUAL)
(JUMPE 1 G0011)
G0022
(HLRZ 1 @ 0 P)
(HRRZ 1 0 1)
(JRST 0 G0019)
G0011
(MOVE 5 0 P)
(MOVEM 5 -1 P)
(JRST 0 G0001)
G0019
(SUB P (% 0 0 5 5))
(SUB FXP (% 0 0 2 2))
(POPJ P)
NIL
(LAP FASLDEFSYM SUBR)
(ARGS FASLDEFSYM (NIL . 2))
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 'SYM)
(CALL 2 'GET)
(PUSH P 1)
(JUMPE 1 G0003)
(MOVE 2 -1 P)
(CALL 2 'EQUAL)
(JUMPE 1 G0004)
(MOVE 1 0 P)
(JRST 0 G0006)
G0004
(MOVE 2 (SPECIAL AMBIGSYMS))
(MOVE 1 -2 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0002)
(MOVE 2 (SPECIAL AMBIGSYMS))
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL AMBIGSYMS))
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVE 1 -2 P)
(CALL 2 'MEMQ)
(JUMPN 1 G0011)
(MOVE 2 0 P)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVE 2 (SPECIAL SYMPDL))
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL SYMPDL))
(MOVEM 1 (SPECIAL MAINSYMPDL))
G0011
(JRST 0 G0002)
G0003
(MOVE 2 (SPECIAL CURRENTFNSYMS))
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL CURRENTFNSYMS))
G0002
(MOVEI 3 'SYM)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(MOVEI 2 0 1)
(MOVE 1 -2 P)
(JSP T PDLNMK)
(CALL 3 'PUTPROP)
G0006
(SUB P (% 0 0 3 3))
(POPJ P)
NIL
(LAP /|FL25 SUBR)
(STRT 0 (% SIXBIT |ARG FOR BLOCK EXPRESSION !|))
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | NOT DEFINED!|))
(MOVEI 1 'T)
(POPJ P)
NIL
(LAP BLOBLENGTH SUBR)
(ARGS BLOBLENGTH (NIL . 1))
(PUSH P (% 0 0 FIX1))
(PUSH P 1)
(HLRZ 2 0 1)
(CAIE 2 'SIXBIT)
(JRST 0 G0002)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(NCALL 1 'FLATC)
(ADDI 7 5)
(IDIVI 7 6)
(JRST 0 G0001)
G0002
(CAIE 2 'ASCII)
(JRST 0 G0008)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(NCALL 1 'FLATC)
(ADDI 7 4)
(IDIVI 7 5)
(JRST 0 G0001)
G0008
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(MOVEM 1 (SPECIAL DATA))
(CALL 1 'NUMBERP)
(JUMPE 1 G0014)
(MOVE 7 @ (SPECIAL DATA))
(JRST 0 G0001)
G0014
(MOVE 1 (SPECIAL DATA))
(CALL 1 'TYPEP)
(CAIE 1 'SYMBOL)
(JRST 0 G0017)
(MOVEI 2 'SYM)
(MOVE 1 (SPECIAL DATA))
(CALL 2 'GET)
(MOVEM 1 (SPECIAL DATA))
(CALL 1 'NUMBERP)
(JUMPE 1 G0017)
(MOVE 7 @ (SPECIAL DATA))
(JRST 0 G0001)
G0017
(MOVE 1 0 P)
(JSP T PDLNMK)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL25)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(MOVEI 7 0)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP SUBMATCH SUBR)
(ARGS SUBMATCH (NIL . 2))
(JSP T PDLNMK)
(PUSH P 1)
(MOVEI 1 0 2)
(JSP T PDLNMK)
(PUSH P 1)
G0004
(SKIPE 1 0 P)
(JRST 0 G0007)
(MOVEI 1 'T)
(JRST 0 G0009)
G0007
(SKIPN 2 -1 P)
(JRST 0 G0010)
(HLRZ 3 0 1)
(HLRZ 4 0 2)
(CAIE 4 0 3)
(JRST 0 G0010)
(HRRZ 5 0 1)
(HRRZ 3 0 2)
(MOVEM 3 -1 P)
(MOVEM 5 0 P)
(JRST 0 G0004)
G0010
(MOVEI 1 'NIL)
G0009
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP MUNGEABLE SUBR)
(ARGS MUNGEABLE (NIL . 1))
(PUSH P 1)
(HLRZ 2 0 1)
(CAIN 2 'QUOTE)
(JRST 0 G0003)
(CAIN 2 'COMMENT)
(JRST 0 G0003)
(CAIN 2 'DECLARE)
(JRST 0 G0003)
(CAIE 2 'EVAL)
(JRST 0 G0002)
(HRRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 1 'TYPEP)
(CAIE 1 'LIST)
(JRST 0 G0002)
(HRRZ 3 @ 0 P)
(HLRZ 3 0 3)
(HLRZ 3 0 3)
(CAIE 3 'QUOTE)
(JRST 0 G0002)
G0003
(TDZA 1 1)
G0002
(MOVEI 1 'T)
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP MOBYSYMPOP SUBR)
(ARGS MOBYSYMPOP (NIL . 1))
(JSP T PDLNMK)
(PUSH P 1)
G0002
(SKIPN 1 0 P)
(JRST 0 G0005)
(MOVEI 3 'SYM)
(HLRZ 2 0 1)
(HRRZ 2 0 2)
(HLRZ 1 0 1)
(HLRZ 1 0 1)
(CALL 3 'PUTPROP)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0002)
G0005
(MOVEI 1 'NIL)
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(LAP /|FL26 SUBR)
(STRT 0 (% SIXBIT |QUOTE RANDOMNESS IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | AT RELATIVE LOCATION !|))
(MOVE 1 (SPECIAL LOC))
(JCALL 1 'PRIN1)
NIL
(LAP LISTOUT SUBR)
(ARGS LISTOUT (NIL . 1))
(PUSH P 1)
(CALL 1 'TYPEP)
(PUSH P 1)
(CAIE 1 'RANDOM)
(JRST 0 G0006)
(MOVEI 2 '/|FL26)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(JRST 0 G0005)
G0006
(CAIN 1 'LIST)
(JRST 0 G0008)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0005)
G0008
(MOVE 1 -1 P)
(JSP T PDLNMK)
(PUSH FXP (% 0))
(PUSH FXP (% 0))
(PUSH P 1)
(PUSH P (% 0 0 'NIL))
G0003
(SKIPN 1 -1 P)
(JRST 0 G0014)
(CALL 1 'ATOM)
(MOVEM 1 0 P)
(JUMPE 1 G0012)
G0014
(SKIPN 1 0 P)
(JRST 0 G0017)
(MOVE 1 -1 P)
(CALL 1 'LISTOUT)
(SKIPA 7 (% 2←41))
G0017
(MOVE 7 (% 1←41))
(MOVEM 7 0 FXP)
(IOR 7 -1 FXP)
(MOVEM 7 -1 FXP)
(MOVEI 1 -1 FXP)
(CALL 1 'FASLOUT)
(JRST 0 G0021)
G0012
(HLRZ 1 @ -1 P)
(CALL 1 'LISTOUT)
(MOVE 7 -1 FXP)
(ADDI 7 1)
(HRRZ 1 @ -1 P)
(MOVEM 1 -1 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0003)
G0021
(SUB P (% 0 0 2 2))
(SUB FXP (% 0 0 2 2))
G0005
(SUB P (% 0 0 2 2))
(POPJ P)
NIL
(LAP /|FL27 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - BUFFERBIN SCREW IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP BUFFERBIN SUBR)
(ARGS BUFFERBIN (NIL . 3))
(MOVE 7 @ (SPECIAL BINCT))
(MOVE 10 0 1)
(MOVEM 10 @ (ARRAY BTAR))
(MOVE 7 @ (SPECIAL BINCT))
(MOVE 10 0 2)
(MOVEM 10 @ (ARRAY BXAR))
(PUSH FXP 0 1)
(MOVEI 1 0 3)
(JSP T PDLNMK)
(MOVE 7 @ (SPECIAL BINCT))
(ROT 7 -1)
(JUMPL 7 (* 3))
(HRLM 1 @ (ARRAY BSAR))
(JRST 0 (* 2))
(HRRM 1 @ (ARRAY BSAR))
(PUSH FXP 0 2)
(PUSH P 3)
(MOVE 7 -1 FXP)
(CAIN 7 17)
(JRST 0 G0019)
(MOVE 7 @ (SPECIAL BINCT))
(CAIL 7 10)
(JRST 0 G0019)
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL BINCT))
(JRST 0 G0018)
G0019
(PUSH FXP (% 0))
(PUSH FXP (% 0))
G0003
(MOVE 7 -1 FXP)
(CAMG 7 @ (SPECIAL BINCT))
(JRST 0 G0023)
(MOVEI 7 10)
(SUB 7 @ (SPECIAL BINCT))
(ASH 7 2)
(MOVE 10 0 FXP)
(LSH 10 0 7)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0029)
G0023
(MOVE 7 0 FXP)
(LSH 7 4)
(PUSH FXP 7)
(MOVE 7 -2 FXP)
(MOVE 7 @ (ARRAY BTAR))
(IOR 7 0 FXP)
(AOS 0 -2 FXP)
(MOVEM 7 -1 FXP)
(SUB FXP (% 0 0 1 1))
(JRST 0 G0003)
G0029
(SUB FXP (% 0 0 2 2))
(PUSH FXP (% 0))
G0006
(MOVE 7 0 FXP)
(CAMLE 7 @ (SPECIAL BINCT))
(JRST 0 G0035)
(MOVE 7 @ (ARRAY BTAR))
(MOVEM 7 -2 FXP)
(MOVE 7 0 FXP)
(MOVE 10 @ (ARRAY BXAR))
(MOVEM 10 -1 FXP)
(MOVE 7 -2 FXP)
(CAIGE 7 5)
(JRST 0 G0042)
(CAIN 7 6)
(JRST 0 G0042)
(CAIE 7 10)
(JRST 0 G0041)
G0042
(MOVEI 1 -1 FXP)
(CALL 1 'FASLOUT)
(JRST 0 G0040)
G0041
(MOVE 7 0 FXP)
(ROT 7 -1)
(JUMPL 7 (* 3))
(HLRZ 1 @ (ARRAY BSAR))
(JRST 0 (* 2))
(HRRZ 1 @ (ARRAY BSAR))
(MOVEM 1 0 P)
(MOVE 7 -2 FXP)
(CAIE 7 5)
(JRST 0 G0046)
(CALL 1 'LISTOUT)
(MOVE 7 -1 FXP)
(LSH 7 -22)
(IOR 7 (% -1←22))
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(MOVE 1 0 P)
(NCALL 1 'SXHASH)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 2 2))
(JRST 0 G0040)
G0046
(CAIE 7 12)
(JRST 0 G0050)
(CALL 1 'TYPEP)
(PUSH P 1)
(CAIE 1 'SYMBOL)
(JRST 0 G0053)
(MOVEI 2 '7)
(MOVE 1 -1 P)
(CALL 2 'PNGET)
(MOVEM 1 -1 P)
(NCALL 1 'LENGTH)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(MOVE 1 -1 P)
(JSP T PDLNMK)
(PUSH P 1)
G0009
(SKIPN 1 0 P)
(JRST 0 G0058)
(HLRZ 1 0 1)
(CALL 1 'FASLOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0009)
G0058
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(JRST 0 G0052)
G0053
(CAIE 1 'BIGNUM)
(JRST 0 G0061)
(MOVE 1 -1 P)
(CALL 1 'MINUSP)
(JUMPE 1 G0063)
(SKIPA 7 (% 7←22))
G0063
(MOVEI 7 0)
(HRRZ 1 @ -1 P)
(PUSH FXP 7)
(NCALL 1 'LENGTH)
(MOVE 10 (% 3←41))
(IOR 10 0 FXP)
(IOR 10 7)
(PUSH FXP 10)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(HRRZ 1 @ -1 P)
(CALL 1 'REVERSE)
(PUSH P 1)
G0012
(SKIPN 1 0 P)
(JRST 0 G0073)
(HLRZ 1 0 1)
(CALL 1 'FASLOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0012)
G0073
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(JRST 0 G0052)
G0061
(CAIN 1 'FIXNUM)
(SKIPA 1 (% 0 0 '1←41))
(MOVEI 1 '2←41)
(CALL 1 'FASLOUT)
(MOVE 1 -1 P)
(CALL 1 'FASLOUT)
G0052
(SUB P (% 0 0 1 1))
(JRST 0 G0040)
G0050
(CAIE 7 13)
(JRST 0 G0079)
(MOVEI 2 'SYMBOL)
(HLRZ 1 0 1)
(NCALL 2 'ATOMINDEX)
(LSH 7 22)
(MOVEI 2 'SYMBOL)
(HRRZ 1 @ 0 P)
(PUSH FXP 7)
(NCALL 2 'ATOMINDEX)
(IOR 7 0 FXP)
(PUSH FXP 7)
(MOVEI 1 0 FXP)
(CALL 1 'FASLOUT)
(MOVEI 1 -3 FXP)
(CALL 1 'FASLOUT)
(SUB FXP (% 0 0 2 2))
(JRST 0 G0040)
G0079
(CAIE 7 16)
(JRST 0 G0086)
(CALL 1 'LISTOUT)
(MOVEI 1 -1 FXP)
(CALL 1 'FASLOUT)
(JRST 0 G0040)
G0086
(CAIE 7 17)
(JRST 0 G0087)
(MOVEI 1 '124641635413)
(CALL 1 'FASLOUT)
(JRST 0 G0040)
G0087
(CAIE 7 7)
(JRST 0 G0088)
(MOVEI 1 -1 FXP)
(CALL 1 'FASLOUT)
(SKIPN 1 0 P)
(JRST 0 G0089)
(CALL 1 'FASLOUT)
G0089
(JRST 0 G0040)
G0088
(CAIE 7 15)
(JRST 0 G0090)
(JSP T PDLNMK)
(CALL 1 'NCONS)
(CALL 1 'SQOZ/|)
(CALL 1 'FASLOUT)
(JRST 0 G0040)
G0090
(JSP T PDLNMK)
(CALL 1 'NCONS)
(MOVEI 2 0 1)
(MOVE 7 -1 FXP)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEI 2 0 1)
(MOVE 7 -2 FXP)
(JSP T FXCONS)
(CALL 2 'CONS)
(MOVEM 1 (SPECIAL DATA))
(MOVEI 2 '/|FL27)
(MOVEI 1 'BARF)
(CALL 2 'FASLAPBARF)
G0040
(AOS 0 0 FXP)
(JRST 0 G0006)
G0035
(SUB FXP (% 0 0 1 1))
(MOVEI 1 '0)
(MOVEM 1 (SPECIAL BINCT))
G0018
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 2 2))
(POPJ P)
NIL
(LAP /|FL30 SUBR)
(MOVE 1 (SPECIAL DATA))
(CALL 1 'PRIN1)
(STRT 0 (% SIXBIT | - ILL-FORMED EXPRESSION IN !|))
(MOVE 1 (SPECIAL CURRENTFN))
(JCALL 1 'PRIN1)
NIL
(LAP MAKEWORD SUBR)
(ARGS MAKEWORD (NIL . 1))
(PUSH P 1)
(PUSH P (% 0 0 'T))
(PUSH FXP (% 0))
(PUSH FXP (% 0))
(JSP T PDLNMK)
(JSP T (NPUSH -7))
(PUSH FXP (% 0))
(PUSH P 1)
(HLRZ 2 @ -11 P)
(CAIE 2 'SQUOZE)
(JRST 0 G0015)
(HRRZ 1 @ -11 P)
(CALL 1 'SQOZ/|)
(CALL 1 'BINOUT)
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0015
(CAIE 2 'BLOCK)
(JRST 0 G0022)
(HRRZ 1 @ -11 P)
(HLRZ 1 0 1)
(MOVEM 1 -7 P)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIE 1 'SYMBOL)
(JRST 0 G0026)
(MOVEI 2 'SYM)
(MOVE 1 -7 P)
(CALL 2 'GET)
(MOVEM 1 -7 P)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
G0026
(MOVE 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0011)
(PUSH FXP @ -7 P)
G0002
(MOVE 7 0 FXP)
(JUMPE 7 G0032)
(MOVEI 1 '0)
(CALL 1 'BINOUT)
(SOS 0 0 FXP)
(JRST 0 G0002)
G0032
(SUB FXP (% 0 0 1 1))
(MOVE 7 @ (SPECIAL LOC))
(ADD 7 @ -7 P)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0022
(CAIE 2 'ASCII)
(JRST 0 G0037)
(MOVEI 7 7)
(MOVEM 7 0 FXP)
(JRST 0 G0036)
G0037
(CAIE 2 'SIXBIT)
(JRST 0 G0014)
(MOVEI 7 6)
(MOVEM 7 0 FXP)
G0036
(MOVEI 2 0 FXP)
(HRRZ 1 @ -11 P)
(HLRZ 1 0 1)
(CALL 2 'PNGET)
(PUSH P 1)
(MOVEM 1 -10 P)
(PUSH P 0 P)
G0006
(SKIPN 1 0 P)
(JRST 0 G0044)
(HLRZ 1 0 1)
(CALL 1 'BINOUT)
(HRRZ 1 @ 0 P)
(MOVEM 1 0 P)
(JRST 0 G0006)
G0044
(SUB P (% 0 0 2 2))
(MOVE 1 -7 P)
(NCALL 1 'LENGTH)
(ADD 7 @ (SPECIAL LOC))
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(JRST 0 G0021)
G0014
(MOVEI 5 '3)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIN 1 'FIXNUM)
(JRST 0 G0055)
(CAIE 1 'FLONUM)
(JRST 0 G0054)
G0055
(MOVE 7 @ -7 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0053)
G0054
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 2 @ -7 P)
(CAIE 2 'RELOC)
(JRST 0 G0056)
(MOVEI 7 1)
(HRRZ 3 @ -7 P)
(HLRZ 3 0 3)
(MOVE 10 0 3)
(MOVEM 7 -2 FXP)
(MOVEM 10 -1 FXP)
(HRRZ 1 @ -7 P)
(HRRZ 1 0 1)
(MOVEM 1 -5 P)
(JUMPE 1 G0059)
(SETZM 0 -10 P)
G0059
(JRST 0 G0053)
G0056
(EXCH 1 2)
(CALL 1 'NUMBERP)
(JUMPE 1 G0061)
(SETZM 0 -10 P)
(HRRZ 3 @ -7 P)
(HLRZ 4 @ -7 P)
(MOVE 7 0 4)
(MOVEM 3 -5 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0053)
G0061
(JRST 0 G0011)
G0053
G0007
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0066)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(MOVEM 7 -1 FXP)
(JRST 0 G0007)
G0066
(MOVEI 5 '2)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0075)
(MOVE 7 @ -7 P)
(ANDI 7 17)
(ROT 7 -15)
(ADDB 7 -1 FXP)
(JRST 0 G0074)
G0075
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 1 @ -7 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0079)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 7 @ -7 P)
(MOVE 7 0 7)
(ANDI 7 17)
(ROT 7 -15)
(IOR 7 -1 FXP)
(MOVEM 2 -4 P)
(MOVEM 7 -1 FXP)
(JRST 0 G0074)
G0079
(JRST 0 G0011)
G0074
G0008
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0087)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(MOVEM 7 -1 FXP)
(JRST 0 G0008)
G0087
(MOVEI 5 '1)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIE 1 'FIXNUM)
(JRST 0 G0096)
(MOVE 7 @ -7 P)
(MOVEM 7 0 FXP)
(JRST 0 G0095)
G0096
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 1 @ -7 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0097)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 3 @ -7 P)
(MOVE 7 0 3)
(MOVEM 2 -3 P)
(MOVEM 7 0 FXP)
(JRST 0 G0095)
G0097
(HRRZ 2 @ -7 P)
(HLRZ 2 0 2)
(HLRZ 3 @ -7 P)
(MOVEM 2 -1 P)
(CAIN 3 'QUOTE)
(JRST 0 G0104)
(CAIE 3 'FUNCTION)
(JRST 0 G0102)
G0104
(EXCH 1 2)
(CALL 1 'COLLECTATOMS)
(MOVE 1 -1 P)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIN 1 'LIST)
(JRST 0 G0108)
(MOVEI 2 0 1)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(MOVEM 7 0 FXP)
(MOVEI 7 4)
(JRST 0 G0107)
G0108
(MOVE 5 -1 P)
(SETZM 0 0 FXP)
(MOVEI 7 5)
(MOVEM 5 -3 P)
G0107
(MOVEM 7 -2 FXP)
(JRST 0 G0095)
G0102
(CAIE 3 'SPECIAL)
(JRST 0 G0115)
(MOVEI 7 2)
(MOVEM 7 -2 FXP)
(JRST 0 G0114)
G0115
(CAIE 3 'ARRAY)
(JRST 0 G0113)
(MOVEI 7 10)
(MOVEM 7 -2 FXP)
G0114
(EXCH 1 2)
(CALL 1 'COLLECTATOMS)
(MOVE 1 -1 P)
(CALL 1 'TYPEP)
(CAIE 1 'SYMBOL)
(JRST 0 G0011)
(MOVEI 2 'SYMBOL)
(MOVE 1 -1 P)
(NCALL 2 'ATOMINDEX)
(MOVEM 7 0 FXP)
(JRST 0 G0095)
G0113
(CAIE 3 'RELOC)
(JRST 0 G0122)
(MOVEI 7 1)
(HRRZ 4 @ -7 P)
(HLRZ 4 0 4)
(MOVE 10 0 4)
(MOVEM 7 -2 FXP)
(MOVEM 10 0 FXP)
(HRRZ 1 @ -7 P)
(HRRZ 1 0 1)
(MOVEM 1 -3 P)
(JUMPE 1 G0125)
(SETZM 0 -10 P)
G0125
(JRST 0 G0095)
G0122
(CAIE 3 'EVAL)
(JRST 0 G0127)
(EXCH 1 2)
(CALL 1 'COLLECTATOMS)
(MOVE 3 -1 P)
(MOVEI 2 '-2←22)
(MOVEI 1 '16)
(CALL 3 'BUFFERBIN)
(MOVEI 7 4)
(MOVE 10 @ (SPECIAL ATOMINDEX))
(ADDI 10 1)
(MOVEM 7 -2 FXP)
(MOVE 7 10)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL ATOMINDEX))
(MOVEM 10 0 FXP)
(JRST 0 G0095)
G0127
(JRST 0 G0011)
G0095
(MOVE 7 -1 FXP)
(AND 7 (% -1←22))
(MOVE 10 0 FXP)
(ANDI 10 777777)
(IOR 7 10)
(MOVEM 7 -1 FXP)
G0009
(HRRZ 1 @ -11 P)
(MOVEM 1 -11 P)
(JUMPE 1 G0010)
(HLRZ 2 0 1)
(CAIE 2 '@)
(JRST 0 G0134)
(MOVE 7 -1 FXP)
(IOR 7 (% 20←22))
(JRST 0 (G0009 -1))
G0134
(MOVEI 5 '0)
(MOVEM 5 (SPECIAL FSLFLD))
(EXCH 1 2)
(CALL 1 'FASLEVAL)
(MOVEM 1 -7 P)
(CAIN 1 'FOO)
(JRST 0 G0011)
(CALL 1 'TYPEP)
(MOVEM 1 -6 P)
(CAIN 1 'FIXNUM)
(JRST 0 G0144)
(CAIE 1 'FLONUM)
(JRST 0 G0143)
G0144
(MOVE 7 @ -7 P)
(ROT 7 22)
(ADDB 7 -1 FXP)
(JRST 0 G0142)
G0143
(CAIE 1 'LIST)
(JRST 0 G0011)
(HLRZ 1 @ -7 P)
(CALL 1 'NUMBERP)
(JUMPE 1 G0147)
(SETZM 0 -10 P)
(HRRZ 2 @ -7 P)
(HLRZ 7 @ -7 P)
(MOVE 7 0 7)
(ROT 7 22)
(ADDB 7 -1 FXP)
(MOVEM 2 -2 P)
(JRST 0 G0142)
G0147
(JRST 0 G0011)
G0142
G0010
(MOVE 7 -2 FXP)
(CAIE 7 4)
(JRST 0 G0154)
(HLRZ 1 @ 0 P)
(CAIN 1 'CALL)
(JRST 0 G0155)
(CAIN 1 'JCALL)
(JRST 0 G0155)
(CAIN 1 'NCALL)
(JRST 0 G0155)
(CAIE 1 'NJCALL)
(JRST 0 G0154)
G0155
(MOVEI 7 3)
(MOVEM 7 -2 FXP)
G0154
(MOVE 7 @ (SPECIAL LOC))
(ADDI 7 1)
(JSP T FXCONS)
(MOVEM 1 (SPECIAL LOC))
(MOVE 7 -2 FXP)
(CAIE 7 5)
(JRST 0 G0163)
(PUSH P -3 P)
(SETZM 0 -4 P)
(POP P 3)
(JRST 0 G0162)
G0163
(MOVEI 3 'NIL)
G0162
(MOVEI 2 -1 FXP)
(MOVEI 1 -2 FXP)
(CALL 3 'BUFFERBIN)
(SKIPE 1 -10 P)
(JRST 0 G0165)
(SKIPN 2 -5 P)
(JRST 0 G0167)
(MOVEI 2 '3)
(MOVE 1 -5 P)
(CALL 2 'GLHAK)
G0167
(SKIPN 1 -4 P)
(JRST 0 G0169)
(MOVEI 2 '2)
(CALL 2 'GLHAK)
G0169
(SKIPN 1 -3 P)
(JRST 0 G0172)
(MOVEI 2 '1)
(CALL 2 'GLHAK)
(JUMPN 1 G0011)
G0172
(SKIPN 1 -2 P)
(JRST 0 G0174)
(MOVEI 2 '0)
(CALL 2 'GLHAK)
G0174
G0165
(JRST 0 G0021)
G0011
(JSP T SPECBIND)
(-1←41 0 (SPECIAL DATA))
(MOVEI 2 '/|FL30)
(MOVEI 1 'DATA)
(CALL 2 'FASLAPBARF)
(PUSHJ P UNBIND)
G0021
(MOVEI 1 'NIL)
(SUB P (% 0 0 12 12))
(SUB FXP (% 0 0 3 3))
(POPJ P)
NIL
(LAP GLHAK SUBR)
(ARGS GLHAK (NIL . 2))
(PUSH P 1)
(PUSH FXP 0 2)
(HLRZ 3 0 1)
(HLRZ 3 0 3)
(JUMPN 3 G0002)
(MOVE 7 0 FXP)
(SOJE 7 G0004)
(MOVEI 1 'T)
(JRST 0 G0001)
G0004
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HRRZ 4 0 4)
(JUMPE 4 G0007)
(SKIPA 7 (% -4←41))
G0007
(MOVEI 7 0)
(HLRZ 10 0 1)
(HRRZ 10 0 10)
(HLRZ 10 0 10)
(MOVE 10 0 10)
(ANDI 10 777777)
(IOR 7 10)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '6)
(CALL 3 'BUFFERBIN)
(SUB FXP (% 0 0 1 1))
(HRRZ 1 @ 0 P)
(JUMPE 1 G0013)
(MOVEI 2 0 FXP)
(CALL 2 'GLHAK)
G0013
(JRST 0 G0001)
G0002
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HRRZ 4 0 4)
(JUMPE 4 G0019)
(SKIPA 7 (% -4←41))
G0019
(MOVEI 7 0)
(PUSH FXP 7)
(HLRZ 4 0 1)
(HRRZ 4 0 4)
(HLRZ 4 0 4)
(JUMPE 4 G0023)
(SKIPA 7 (% 2←41))
G0023
(MOVEI 7 0)
(MOVE 10 -1 FXP)
(ROT 10 -4)
(IOR 7 0 FXP)
(IOR 7 10)
(IOR 7 0 3)
(HLRZ 3 0 1)
(HRRZ 3 0 3)
(HLRZ 3 0 3)
(PUSH FXP 7)
(MOVEI 2 0 FXP)
(MOVEI 1 '7)
(CALL 3 'BUFFERBIN)
(SUB FXP (% 0 0 2 2))
(HRRZ 1 @ 0 P)
(JUMPE 1 G0032)
(MOVEI 2 0 FXP)
(CALL 2 'GLHAK)
G0032
G0001
(SUB P (% 0 0 1 1))
(SUB FXP (% 0 0 1 1))
(POPJ P)
NIL
(LAP BINOUT SUBR)
(ARGS BINOUT (NIL . 1))
(MOVEI 3 'NIL)
(MOVEI 2 0 1)
(MOVEI 1 '0)
(JCALL 3 'BUFFERBIN)
NIL
(LAP *DDTSYM SUBR)
(ARGS *DDTSYM (NIL . 1))
(PUSH P 1)
(JSP T PDLNMK)
(CALL 1 'NCONS)
(CALL 1 'SQOZ/|)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 'GETDDTSYM)
(CALL 1 'NCONS)
(POP P 2)
(CALL 2 'XCONS)
(CALL 1 'NCONS)
(MOVEI 2 '0)
(CALL 2 'XCONS)
(MOVEI 2 0 1)
(POP P 1)
(JCALL 2 'FASLDEFSYM)
NIL
(LAP FASLOUT SUBR)
(ARGS FASLOUT (NIL . 1))
(PUSH P 1)
(SKIPN 2 (SPECIAL NIOP/|))
(JRST 0 G0002)
(EXCH 2 1)
(MOVE 1 (SPECIAL IMOSAR))
(CALL 2 'OUT)
(JRST 0 G0001)
G0002
(CALL 1 'IMAGEOUT)
G0001
(SUB P (% 0 0 1 1))
(POPJ P)
NIL
(AND (STATUS FEATURE NEWIO) (DEFPROP UTIN 0 SYM) (DEFPROP UINITA 0 SYM))
(LAP OPENIMAGEOUT SUBR)
(ARGS OPENIMAGEOUT (NIL . 2))
[IFE DEC10, (DEFSYM FSLC 14)] ;FASLAP CAN USE BVDC TEMPROARILY
;BUT DEC10 VERSION USES DSIC
(DEFSYM TTSAR 1) ;OFFSET OF TT SAR FROM SAR
(JUMPE B CLIMO)
(MOVEI B 'OUTPUT)
(CALL 2 (FUNCTION XCONS))
(MOVEI B '/.FASL/.)
(CALL 2 (FUNCTION XCONS))
(MOVEI T 7) ;BLOCK IMAGE OUTPUT MODE
(PUSHJ P,UINITA)
[IFE DEC10,
(*OPEN FSLC UTIN) ;OPEN FILE NAMED ".FASL. OUTPUT"
(LERR 0 (% SIXBIT |FILE OPEN FAILED - FASLAP!|))
] ;END OF IFE DEC10
[IFN DEC10,
(MOVE T D10NAM)
(HRRI T (SIXBIT / / / FAS))
(MOVEM T UFN1)
(HRLZM T UFN2)
(MOVE B (SPECIAL IMOSAR))
(PUSHJ P (IOO 2)) ;CROCK PATCH TO NOT MAKE ARRAY AGIN
(LERR 0 (% SIXBIT |DEVICE NOT AVAILABLE!|))
(ENTER DSIC T)
(LERR 0 (% SIXBIT |CANNOT ENTER FILE!|))
] ;END OF IFN DEC10
(MOVE A (SPECIAL IMOSAR))
(MOVEI B '(0))
(CALL 2 'FILLARRAY)
(MOVE TT UTIN)
(JSP T FXCONS)
(MOVEM A (SPECIAL OPENIMAGEOUT))
(MOVE AR2A (SPECIAL IMOSAR))
IMOINI (MOVEI TT IMOBFL)
(MOVNM TT @ TTSAR AR2A)
(MOVEI A 'T)
(JRST 0 INTREL) ;UNLKPOPJ
CLIMO (PUSH FXP INHIBIT) ;LOCKI
(SETOM 0 INHIBIT)
(PUSH P A)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
(PUSH FXP TT)
(POP P A)
(HRRZ A 0 A)
(HLRZ A 0 A)
(PUSHJ P SIXMAK)
[IFN DEC10,
(PUSH FXP TT)
(HRRZ AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(MOVN TT @ TTSAR AR2A)
(SUBI TT IMOBFL)
(JUMPE TT GREG2)
(HRLZS 0 TT)
(HRR TT TTSAR AR2A)
(SUBI TT 1) ;DEC-10 WANTS IOWD, NOT AOBJN PTR
(SETZ D)
(OUTPUT DSIC TT)
(STATZ DSIC 740000)
(JRST 0 OFAIL)
GREG2 (MOVE T @ (SPECIAL OPENIMAGEOUT))
(MOVEM T UTIN)
(CLOSE DSIC)
(MOVE T -1 FXP)
(HLLZ TT 0 FXP)
(MOVE R USN) ;PICK UP PPN
(LOOKUP DSIC T)
(JRST 0 GREG1)
(MOVE R USN)
(SETZB T TT)
(RENAME DSIC T)
(LERR 0 (% SIXBIT CANNOT/ DELETE/ EXISTING/ FILE/ -/ FASLAP/#/!/!))
GREG1 (MOVE R USN)
(MOVE T D10NAM)
(HRRI T (SIXBIT / / / FAS))
(HRLZM T TT)
(LOOKUP DSIC T)
(JFCL 0)
(POP FXP TT)
(POP FXP T)
(MOVE R USN)
(SETZ D)
(HLLZ TT TT)
(RENAME DSIC T)
(LERR 0 (% SIXBIT FILE/ RENAME/ LOST/ /-/ FASLAP/!))
] ;END OF IFN DEC10
[IFE DEC10,
(POP FXP (UTIN 3))
(MOVEM TT (UTIN 4))
(MOVE T @ (SPECIAL OPENIMAGEOUT))
(MOVEM T UTIN)
(SETZM 0 (UTIN 1))
(MOVEI T FSLC)
(MOVEM T (UTIN 2))
(*FDELE 0 UTIN)
FFRL (LERR 0 (% SIXBIT FASLAP/ FILE/ RENAME/ LOST/!))
(HRRZ AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(MOVN TT @ TTSAR AR2A) ;CHECK FOR ANY DATA LEFT IN BUFFER
(SUBI TT IMOBFL)
(JUMPE TT IMOB)
(HRLZS 0 TT) ;OUTPUT LAST BLOCK OF DATA
(HRR TT TTSAR AR2A)
(*IOT FSLC TT)
IMOB (*CLOSE FSLC) ;CLOSE OUTPUT FILE
] ;END OF IFE DEC10
(MOVEI A 0)
(JRST 0 INTREL) ;UNLKPOPJ
(ENTRY IMAGEOUT SUBR)
(MOVE TT 0 1) ;GET OUTPUT VALUE
IMOTT (PUSH FXP INHIBIT)
(SETOM 0 INHIBIT)
(MOVE F TT)
(MOVE AR2A (SPECIAL IMOSAR))
(MOVEI TT IMOBFL)
(AOS D @ TTSAR AR2A) ;GET AND INCREMENT COUNT
(MOVEI TT (- IMOBFL 1) D)
(MOVEM F @ TTSAR AR2A) ;PUT WORD IN BUFFER
(JUMPN D INTREL) ;UNLKPOPJ
(HRLI TT (- IMOBFL))
(HRR TT TTSAR AR2A)
[IFN DEC10,
(SUBI TT 1)
(MOVEI D 0)
(OUT DSIC TT)
(JRST 0 IMOINI) ;NOW GO REINITIALIZE COUNTER
OFAIL (LERR 0 (% SIXBIT OUTPUT/ FAILURE/ /-/ FASLAP/!))
] ;END OF IFN DEC10
[IFE DEC10,
(*IOT FSLC TT)
(JRST 0 IMOINI) ;NOW GO REINITIALIZE COUNTER
] ;END OF IFE DEC10
NIL
(DECLARE (EVAL (READ)) (EVAL (READ)) (EVAL (READ)))(SETSYNTAX '/# 'MACRO NIL)(SETSYNTAX '/[ 'SPLICING NIL)(SETSYNTAX '
/] 'SPLICING NIL)(AND (STATUS FEATURE NEWIO) (REMPROP 'UTIN 'SYM) (REMPROP 'UINITA 'SYM))
(SSTATUS FEATURE FASLAP)
(GCTWA)